home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1992 / 11 / 02 / makecat / install / install.script < prev    next >
Encoding:
Text File  |  1995-06-01  |  5.1 KB  |  246 lines
  1. ; $VER: Install_MakeCat 38.05 (5.10.92)
  2. ; Script to install MakeCat on a harddisk
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. ;=============================================================================
  8. ; German strings
  9.  
  10. (if (= @language "deutsch")
  11. (
  12. (set #bad-kick
  13. (cat "Sie müssen Kickstart 2.04 zum Installieren von MakeCat benutzen"
  14. ))
  15.  
  16. (set #about-this-thing
  17. (cat "\nPALADIN SOFTWARE\n"
  18.      "präsentiert\n"
  19.      "MakeCat V38.05\n"
  20.      "\n\nBitte booten Sie von Ihrer Platte\n"
  21.      "oder\n"
  22.      "setzen die Assigns LIBS: und Locale: ."
  23. ))
  24.  
  25. (set #about-this-thing-help
  26. (cat "\n                     MakeCat\n"
  27.      "dient vor allem zum Erzeugen von Katalogen und ersetzt das\n"
  28.      "Programm CatComp von der Developers2.1-Disk völlig.\n\n"
  29.      "Darüberhinaus bietet es noch viele Extras !!!\n"
  30.      "Lesen Sie außerdem die beigefügte Dokumentationsdatei !"
  31. ;     @askoptions-help
  32. ))
  33.  
  34. (set #which-disk
  35. (cat "Auf welcher Disk soll MakeCat installiert werden ?"
  36. ))
  37.  
  38. (set #which-disk-help
  39. (cat "\nHier geben Sie an, auf welcher Disk oder Partition Sie"
  40.      " MakeCat installieren wollen.\n\n\n"
  41.      @askdir-help
  42. ))
  43.  
  44. (set #which-files
  45. (cat "Welche Dateien sollen noch installiert werden?"
  46. ))
  47.  
  48. (set #which-files-help
  49. (cat "\nBitte geben Sie an, welche Dateien"
  50.      "ins Verzeichnis von MakeCat kopiert werden sollen.\n\n"
  51.      "MakeCat_D.doc ist die deutsche Dokumentationsdatei."
  52. ))
  53.  
  54. (set #which-langs
  55. (cat "Welche Sprachen sollen installiert werden?"
  56. ))
  57.  
  58. (set #which-langs-help
  59. (cat "\nBitte geben Sie an,"
  60.      "welche Kataloge nach LOCALE: kopiert werden sollen"
  61. ))
  62.  
  63. (set #ask-catdisk
  64. (cat "\n\nBittel legen Sie die Diskette \"Amiga-Magazin-PD\""
  65.      "in ein beliebiges Diskettenlaufwerk ein."
  66. ))
  67.  
  68. (set #ask-ctadisk-help
  69. (cat @askdisk-help
  70. ))
  71.  
  72. (set #what-next
  73. (cat "Viel Spaß beim Arbeiten\n"
  74.      "wünschen Ihnen\n"
  75.      "die Programmierer von\n"
  76.      "PALADIN SOFTWARE\n"
  77.      "\n\nZu näheren Informationen lesen Sie bitte die Dokumentation !"
  78.      
  79. ))
  80.  
  81. (set #confirm-lib
  82. (cat "Paladin.library V38.102 auch kopieren ?\n"
  83.      "( MakeCat benötigt diese unbedingt ! )"
  84. ))
  85.  
  86. (set #confirm-lib-help
  87. (cat "MakeCat V38.05 benötigt dringend die paladin.library V38.102.\n"
  88.      "Sollten Sie bereits eine Paladin-Library mit einer höheren\n"
  89.      "Versionsnummer im LIBS: haben, so sollten Sie sie NICHT installieren\n"
  90. ))
  91. ))
  92.  
  93.  
  94. ;=============================================================================
  95. ; make sure we are running under a 2.04 ROM
  96.  
  97. (if (< (/ (getversion) 65536) 37)
  98. (
  99.     (abort #bad-kick)
  100. ))
  101.  
  102. ;=============================================================================
  103. ; explain what we are all about...
  104.  
  105. (message #about-this-thing
  106.      (help #about-this-thing-help)
  107. )
  108.  
  109. ;*****************************************************************************
  110. ; useful procedures
  111.  
  112. (procedure TERMINATE (makeassign "..CATDISK..")
  113. )
  114.  
  115. ; termination stuff
  116.  
  117. (onerror (TERMINATE))
  118.  
  119. ;=============================================================================
  120. ; get target directory
  121.  
  122. (set target "dh0:")
  123.  
  124.     (set target (askdir (prompt #which-disk)
  125.               (help #which-disk-help)
  126.               (default target)
  127.          )
  128.     )
  129.  
  130. (set @default-dest target)
  131.  
  132. ;=============================================================================
  133. ; now copy the files
  134.  
  135. (set whatfiles (askoptions (prompt #which-files)
  136.            (help #which-files-help)
  137.            (choices "MakeCat.info"
  138.                 "MakeCat_D.doc"
  139.                 "MakeCat_D.doc.info"
  140.            )
  141.            (default 1)
  142.      )
  143. )
  144.  
  145. (askdisk (prompt #ask-catdisk)
  146.      (help #ask-catdisk-help)
  147.      (dest "Amiga-Magazin-PD")
  148.      (newname "..CATDISK..")
  149. )
  150.  
  151. (set n 0)
  152. (set filepat "(%")
  153. (while (set file (select n "MakeCat.info"
  154.                "Makecat_D.doc"
  155.                "MakeCat_D.doc.info"
  156.                ""
  157.              )
  158.        )
  159. (
  160.     (if (IN whatfiles n)
  161.     (
  162.         (set filepat (cat filepat "|" file))
  163.     ))
  164.     (set n (+ n 1))
  165. ))
  166.  
  167. (copyfiles (source (cat "..CATDISK..:MakeCat"))
  168.       (dest target)
  169. )
  170.  
  171. (copyfiles (source (cat "..CATDISK..:"))
  172.       (dest target)
  173.       (pattern (cat filepat ")"))
  174. )
  175.  
  176. (set whatfiles (askoptions (prompt #which-langs)
  177.            (help #which-langs-help)
  178.            (choices "Deutsch"
  179.                 "Dansk"
  180.                 "Espagñol"
  181.                 "Français"
  182.                 "Italiano"
  183.                 "Norsk"
  184.                 "Nederlands"
  185.                 "Português"
  186.                 "Svenska"
  187.            )
  188.            (default 1)
  189.      )
  190. )
  191.  
  192. (askdisk (prompt #ask-catdisk)
  193.      (help #ask-catdisk-help)
  194.      (dest "Amiga-Magazin-PD")
  195.      (newname "..CATDISK..")
  196. )
  197.  
  198. (set n 0)
  199. (set filepat "(%")
  200. (while (set file (select n "Deutsch"
  201.                "Dansk"
  202.                "Español"
  203.                "Français"
  204.                "Italiano"
  205.                "Norsk"
  206.                "Nederlands"
  207.                "Português"
  208.                "Svenska"
  209.                ""
  210.              )
  211.        )
  212. (
  213.     (if (IN whatfiles n)
  214.     (
  215.         (set filepat (cat filepat "|" file ))
  216.     ))
  217.     (set n (+ n 1))
  218. ))
  219.  
  220. (copyfiles (source (cat "..CATDISK..:MakeCatCatalogs/"))
  221.       (dest "LOcale:Catalogs/")
  222.       (pattern (cat filepat ")"))
  223. )
  224.  
  225. (if (askbool (prompt (#confirm-lib))
  226.          (help (#confirm-lib-help))
  227.          (default 1)
  228.     )
  229. (
  230. (copyfiles (source (cat "..CATDISK..:Libs/paladin.library"))
  231.       (dest "LIBS:")
  232. )
  233.  
  234. (copyfiles (source (cat "..CATDISK..:PaladinCatalogs/"))
  235.       (dest "LOcale:Catalogs/")
  236.       (pattern (cat filepat ")"))
  237. )
  238.  
  239. ))
  240.  
  241. (complete 100)
  242.  
  243. ;=============================================================================
  244. (TERMINATE)
  245. (exit (#what-next ))
  246.